home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Developer Essentials / DTS Sample Code / DTS Japan-Sample Code / Gestalt•CODE Resource / myNewGestalt.p < prev    next >
Encoding:
Text File  |  1992-02-05  |  781 b   |  37 lines  |  [TEXT/MPS ]
  1. {-------------------------------------------------------------
  2. #
  3. #    Macintosh Developer Technical Support
  4. #
  5. #    Gestalt Sample Code
  6. #
  7. #    Copyright    © 1991 Apple Computer Japan, Inc.
  8. #    All rights reserved.
  9. #
  10. #    version    1.0        7/12/91        T. Tanaka
  11. -------------------------------------------------------------}
  12. {$Z+}
  13. UNIT    GestaltFunc;
  14. INTERFACE
  15.     USES
  16.         GestaltEqu;
  17.     CONST
  18.         myResult    = $0607;
  19.         myOldSelector    = 'osyv';
  20. {$R-}
  21. {$OV-}
  22. IMPLEMENTATION
  23.     FUNCTION TESSYSV(gestaltSelector: OSType;
  24.                         VAR GestaltResponse: LONGINT) : OSErr;
  25.     VAR
  26.         err:    OSErr;
  27.         internalResult:    LONGINT;
  28.     BEGIN
  29.         err := gestalt(myOldSelector,internalResult);
  30.         IF err = noErr THEN BEGIN
  31.             IF internalResult = $0606 THEN
  32.                 GestaltResponse := myResult
  33.             ELSE
  34.                 GestaltResponse := internalResult;
  35.         END;
  36.     END;
  37. END.